home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / wwbbs26.lha / WWBBS / Rexx / Session.rexx
Encoding:
OS/2 REXX Batch file  |  1995-01-05  |  575 b   |  47 lines
  1. /*
  2. ** $VER: Session.rexx 2.0 (21.8.94)
  3. */
  4.  
  5. options results
  6.  
  7. dummy
  8.  
  9. newuser = 0
  10.  
  11. if local=0 then do
  12.     delay 150
  13. end
  14.  
  15. ansidetect
  16.  
  17. if local=0 then do
  18.     logon
  19. end
  20. if local=1 then do
  21.     logon 'Sysop'
  22. end
  23. resultbuff = result
  24. if resultbuff='NEWUSER' then do
  25.     /* New user routine */
  26.     register
  27.     rcbuff = rc
  28.     if rcbuff = 1 then newuser = 1
  29. end
  30.  
  31. dologon
  32. rcbuff = rc
  33. if rcbuff = 1 then do
  34.     /* New user routine */
  35.     if newuser = 1 then do
  36.         edituser
  37.         editprefs
  38.         initmessageglobal
  39.         initfileglobal
  40.     end
  41.     /* Regular session routine */
  42.     readnews new
  43.     shownewemail
  44.     runmenu 'Main'
  45.     dologoff
  46. end
  47.